Sayın atoz112 hocam;

Değerli yorumunuz için teşekkür ederim. Paylaşmış olduğunuz video içinde teşekkürler.
Ancak benim yapmak istediğim sayın C*e*l*o*y*c*e burada paylaşmış olduğu uygulamadaki gibi (Kendisinede paylaşmış ve yazmış olduğu program içinde teşekkürler.) veritabanı uygulama ile aynı yolda değil ise veya belirtilen yolda değilse bir uyarı penceresi ile kullanıcıyı uyarmak ve kullanıcıdan veritabanı yolunu istemek
Sayın C*e*l*o*y*c*e programından örnek vermek gerekirse;


yukarıdaki resimdeki gibi kullanıcıya veritabanı yolu sormak ve devamında bu bilgiye dayalı programı çalıştırmak istiyorum.
İnternette biraz araştırdım ancak Access için bir çalışma bulamadım Sql için yapılmış bir çalışma buldum ancak çalışma eski olduğu için kodlar hata veriyor. Aynı mantıkla kendime göre de uyarlıyamadım
Kod aşağıdaki gibi;

Imports MySql.Data.MySqlClient



Public Class Form1



    Dim baglanti_dizisi As New MySqlConnectionStringBuilder

    Dim mysql_baglanti As New SqlClient.SqlConnection



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        baglanti_dizisi.Server = txtServer.Text

        'baglanti_dizisi.Database = "ogrenci"

        baglanti_dizisi.UserID = txtUserID.Text

        baglanti_dizisi.Password = txtPassWord.Text



        mysql_baglanti.ConnectionString = baglanti_dizisi.ToString



        Try

            mysql_baglanti.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message, "Hata Kodu : " & ex.Message.ToString, MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

    End Sub

 

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AddHandler mysql_baglanti.StateChange, AddressOf mysql_baglanti_durumu

    End Sub





    Private Sub mysql_baglanti_durumu(ByVal sender As Object, ByVal e As StateChangeEventArgs)

        If e.CurrentState = ConnectionState.Connecting Then

            Me.ToolStripStatusLabel2.Image = My.Resources.baglaniyor

        ElseIf e.CurrentState = ConnectionState.Open Then

            Me.ToolStripStatusLabel2.Image = My.Resources.baglandi

        ElseIf e.CurrentState = ConnectionState.Closed Then

            Me.ToolStripStatusLabel2.Image = My.Resources.baglanti_sonlandi

        End If

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        mysql_baglanti.Close()

    End Sub





    Private Sub HelpToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripButton.Click

        System.Diagnostics.Process.Start("http://www.*******.com/?p=842&page=3")

    End Sub

End Class

Bu şekilde bir işlemi nasıl yapabilirim
Yardımlarınız için teşekkürler.