Visual Basic - Conexion Visual Studio 2005 con SQL

Saludos a todos,
Estoy iniciando desarrollando una aplicacion en Visual Studio 2005 y Base de Datos SQL 2005, si tengo una conexion hecha en Control Panel, Herramientas Administrativas, y en Origenes de Datos ODBC Creo una coneccion llamada SQL Origen.

Es necesario que en mi aplicacion VB cree una conexion nuevamente ?, realmente no se como funciona, me gustaria que alguien me explique que tengo que hacer para que mi aplicacion se conecte a mi base de datos y pueda consultar, agregar, modificar y eliminar registro de mis tablas en SQL. porfa, necesito su ayuda, que alguien me explique como funciona y que debo hacer, lo que ocurre es que mis aplicaciones estan hechas en Visual Foxpro y ahora me han exigido que debo emigrarla a VB.

Muchas Gracias a todos y saludos

Tienes esta funcion donde reemplazas los valores de conexion como usurio bd y contraseña

Public Sub ConectaSQL()
On Error GoTo ControlaErrores

Dim vgServer As String
Dim vgUser As String
Dim vgPwd As String
Dim vgBD As String

vgServer = "TERMINAL"
vgUser = "contable"
vgPwd = "contable"
vgBD = "INFO"

With cn
'.ConnectionString = "provider=sqloledb;data source=BBMPE02;uid=contable;database=INFOPRUEBAS;pwd=contable;"

.ConnectionString = "driver={SQL Server};" & _
"server=" & vgServer & _
";uid=" & vgUser & _
";pwd=" & vgPwd & _
";database=" & vgBD

.CursorLocation = adUseClient
.ConnectionTimeout = 60000: .CommandTimeout = 60000
.Open
'Cargar la fecha y hora del servidor
'Call vgClsOpr.FechaHoraServidor
End With
Exit Sub
ControlaErrores:
MsgBox _
prompt:=" Error en el Inicio de Sesión " + Chr(13) + _
" Comuníquese con el Area de Sistemas..!!!", _
Buttons:=vbCritical + vbOKOnly, _
Title:="Error"

End Sub

La ejecutas al unicio del proyecto VB

Luego tienes estas funciones para los mantenimientos y consultas :

Public Function fRetornaRS(GsSentenciaSQL As String) As ADODB.Recordset
Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
On Error GoTo Msj_error
rs.CursorLocation = adUseClient

With Cmd
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = GsSentenciaSQL
.Execute
End With

rs.Open Cmd, , adOpenDynamic, adLockOptimistic
Set fRetornaRS = rs
Set rs = Nothing
Set Cmd = Nothing

Msj_error:
If Err.Number <> 32755 Then
If Len(Err.Description) > 1 Then MsgBox "Ocurrió el Siguiente Error:" + Chr(13) + Err.Description, vbCritical, "SISTEMA"
End If

End Function

Public Sub pEjecutaSQL(GsSentenciaSQL As String)
On Error GoTo Msj_error
Dim Cmd As New ADODB.Command
With Cmd
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = GsSentenciaSQL
.Execute
End With
Set Cmd = Nothing

Msj_error:
If Err.Number <> 32755 Then
If Len(Err.Description) > 1 Then MsgBox "Ocurrió el Siguiente Error:" + Chr(13) + Err.Description, vbCritical, "SISTEMA"
End If

End Sub

Saludos

Rolando Lau

tio, el INU_TIL de angel a puesto "Conexion Visual Studio 2005 con SQL ". lo que tu le has pasado es visual basic 6. Y por si no lo sabes, esto no funciona en vb.net. asi que no engañez al INU_TIL. mejor que postee su pregunta donde debe (hasta para esto es INU_TIL) o que busque en internet.

buscate un manual en internet. esas preguntas de super principiante son absurdas.

Gracias Rolando,