[سعود]

كود :

       If TextBox1.Text.Trim = "" Then Return
       If TextBox1.Text.ToLower.Trim.Contains("microsoft.") Then
           Label2.Text = "Access"
       ElseIf TextBox1.Text.ToLower.Trim.Contains("data source") Or TextBox1.Text.ToLower.Trim.Contains("server") And TextBox1.Text.ToLower.Trim.Contains("microsoft.") = False Then
           Label2.Text = "Sqlserver"
       Else
           Label2.Text = ".....مدري....."
       End If

هل لا تريد هذا!