You could do it like this:
Try
Dim SQLConnection As SqlConnection = New SqlConnection()
SQLConnection.ConnectionString = DBconnectionWork
Dim SQLCommand As SqlCommand = SQLConnection.CreateCommand()
SQLCommand.CommandText = "select c.name from syscolumns c (nolock), sysobjects o (nolock) " + _
"where c.id = o.id and o.name = 'tablename' " + _
" and c.name <> 'timestamp' " + _
"order by colid"
SQLConnection.Open()
Dim myReader As SqlDataReader = SQLCommand.ExecuteReader()
Do While myReader.Read()
ComboBox1.Items.Add(myReader.GetString(0))
Loop
myReader.Close()
SQLConnection.Close()
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical)
End Try