VB.net sql server

salut
je cherche le code pour faire une connexion de vb.net a sql server 2000

thinks

Svp, j'ai besoin de l'aide en ce qui concerne la communication entre SQL serveur et Visual basic. J'ai besoin d'accéder à SQl serveur pour prendre des valeurs et les envoyer vers un afficheur via le VB

choix entre connexion avec authentification windows ou authentification sql server
puis je sauvegarde dans mon settings

imports data.sqlclient

  Dim SqlConnexionString As String

   Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        If CboAuthentification.Text = "Authentification windows" Then
            SqlConnexionString = "Server=" & cboServerSQl.Text & ";" & "DataBase=" & CboBase.Text & ";" & "Integrated Security=SSPI"
        Else
            SqlConnexionString = "Server=" & cboServerSQl.Text & ";" & "DataBase=" & CboBase.Text & ";" & "User Id=" & TxtLogin.Text & ";Password=" & Txtpwd.Text & ""
        End If
        Dim connectionString As String = SqlConnexionString
        Dim connection As New SqlConnection(connectionString)
        Try
            My.Settings.SettingConnexion = SqlConnexionString
            My.Settings.Save()

            connection.Open()
 Dim cmd As New SqlCommand
        With cmd
                .connection = me.
                .commandtype= commandtype.text
                .commandtext ="requette sql"
                .executenonquery()
       end with

        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Exit Sub
        End Try
      
        Me.Close()
    End Sub