ayuda pasar codigo de SQL a acces en visual basic

[Jhosue]

nesecito ayuda para poder pasar este codigo y q sea funcional en una base de datos de access,
para poder hacer una validaciones


If Len(TextBox9.Text) = 4 Then
Dim CN As New SqlConnection("Data Source = '" & server & "'; Initial Catalog = STC; User id=sa;")
Dim cmd As New SqlCommand("Select a.nombre + ', ' + b.nombre from departamentos a, municipios b " & _"where a.codigodepto=@depto and b.codigomuni=@muni and b.codigodepto=a.codigodepto", CN)
cmd.Parameters.Add(New SqlParameter("@depto", Mid(TextBox9.Text, 1, 2)))
cmd.Parameters.Add(New SqlParameter("@muni", Mid(TextBox9.Text, 3, 2)))
CN.Open()
If e.KeyCode = 8 Then
If TextBox9.SelectionStart = 0 Then
TextBox9.Focus()
End If
Else
If TextBox9.SelectionStart = 4 Then
TextBox8.Focus()
End If
End If
CN.Close()
End If