Some basic dot.net examples

 If Dir(Application.StartupPath + "\Coninfo.ini") <> "" Then
            FStream = New FileStream(Application.StartupPath + "\Coninfo.ini", FileMode.Open, FileAccess.Read)
            FSReader = New StreamReader(FStream)
            FSReader.BaseStream.Seek(0, SeekOrigin.Begin)
            compid = GetLineInfo(FSReader.ReadLine).ToUpper
            compname = GetLineInfo(FSReader.ReadLine).ToUpper
            servername = GetLineInfo(FSReader.ReadLine).ToUpper
            backuppath = GetLineInfo(FSReader.ReadLine).ToUpper
        End If

        con.ConnectionString = "server=" + servername + ";database=master;uid=sa;pwd=jos@123"
        con.Open()

        Dim sql As String = "select name from sysdatabases where name like '%" + compid & "%'"
        cmd = New SqlCommand(sql, con)
        da = New SqlDataAdapter(cmd)
        dt = New DataTable
        da.Fill(dt)
        Dim DF As String
        DF = "^" + DateAndTime.Today.Day.ToString
        DF += "-" + DateAndTime.Today.Month.ToString
        DF += "-" + DateAndTime.Today.Year.ToString
        DF += DateAndTime.Now.Hour.ToString
        DF += DateAndTime.Now.Minute.ToString

        If dt.Rows.Count > 0 Then
            Dim i As Integer
            i = 0
            Dim db As String
            While i <> dt.Rows.Count
                db = dt.Rows(i)("name").ToString()
                Dim q As String = "backup database " + db + " to disk='" + backuppath + "\" + db + DF + ".bak'"
                cmd = New SqlCommand(q, con)

                Try
                    cmd.ExecuteNonQuery()

                Catch ex As Exception

                End Try

                i = i + 1
            End While
        End If
        End